add windows debug

diff --git a/Annex/ReplaceFile.hs b/Annex/ReplaceFile.hs
index 3af555d39dc415a5d33cac222036cf70838c94c2..7c42532acbf885c6c89a24eb03043874b93b01b8 100644 (file)
--- a/Annex/ReplaceFile.hs
+++ b/Annex/ReplaceFile.hs
@@ -63,6 +63,7 @@ replaceFile' createdirectory file checkres action = withOtherTmp $ \othertmpdir
        let basetmp = relatedTemplate' (P.takeFileName file)
 #else
        let basetmp = toRawFilePath "t"
+       liftIO $ hPutStrLn stderr $ show ("replaceFile debug", file, P.takeFileName file, relatedTemplate' (P.takeFileName file))
 #endif
        withTmpDirIn (fromRawFilePath othertmpdir) (toOsPath basetmp) $ \tmpdir -> do
                let tmpfile = toRawFilePath tmpdir P.</> basetmp